home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Memory Tools.cpt / Memory Tools / card_13315.txt < prev    next >
Text File  |  1989-01-07  |  3KB  |  104 lines
  1. -- card: 13315 from stack: in
  2. -- bmap block id: 14314
  3. -- flags: 0000
  4. -- background id: 12278
  5. -- name: peekbyte
  6.  
  7.  
  8. -- part 46 (field)
  9. -- low flags: 81
  10. -- high flags: 2004
  11. -- rect: left=26 top=50 right=258 bottom=403
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   hide card field 1
  23. end mouseUp
  24.  
  25.  
  26. -- part 49 (button)
  27. -- low flags: 00
  28. -- high flags: A003
  29. -- rect: left=362 top=55 right=78 bottom=417
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Demo
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   put empty into field "data"
  41.   ask "Peek At " with "411000"
  42.  
  43.   if it is empty then exit mouseup
  44.   show  field "data"
  45.   put it into address
  46.   put address into field "data"
  47.   repeat with i=1 to 10
  48.     put space & Space & peekbyte(address,L) after field "data"
  49.     put last word of field "data" into address
  50.   end repeat
  51.   put return & return & "Click Mouse to Exit Demo" after field "data"
  52.   wait until the mouseclick
  53.   hide  field "data"
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part contents for card part 46
  59. ----- text -----
  60. Ask your dealer for the name of a Macintosh user group near you.  If you live in the United States, you can call (800) 538-9696 for the name, address, and phone number of up to three Macintosh user groups in your geographical area.
  61.  
  62. Outside the United States, ask your dealer to get in touch with:
  63.  
  64. The Boston Computer Society               Berkeley Macintosh User Group
  65. One Center Plaza                                   1442-A Walnut Street #62
  66. Boston, MA 02108                                Berkeley, CA 94709
  67. (617) 367-8080                                (415) 849-9114
  68.  
  69. Either of these organizations can provide you with the name of a Macintosh user group near you.  You can also join either of these groups or ask them for information on starting your own Macintosh user group.
  70.  
  71.  
  72.  
  73.  
  74. -- part contents for background part 68
  75. ----- text -----
  76. Peekbyte returns the unsigned byte stored at a given address. This value is represented in hexadecimal, but you may use the HexToDec XFCN provided in this stack to convert the value to a decimal if you wish.
  77.  
  78. A typical useage of peekbyte would be:
  79.  
  80.                     put peekbyte("411000") into temp
  81.  
  82. On the Mac Plus, this would put the value 4C into the variable temp.
  83.  
  84. As an option, you may include a second parameter with the peekbyte XFCN. If peekbyte detects a second parameter, it returns a 2-line result that consists of the byte stored at the given address in the first line and the next viable address (the original address + 1) in the second line. This option provides a simple and effective way to use peekbyte in a script to peek into a range of addresses. 
  85.  
  86. See the script of the demo button on this card for an example.  
  87.  
  88. The address provided to peekbyte may be even or odd.
  89.  
  90. -- part contents for background part 69
  91. ----- text -----
  92. 411000  4C
  93. 411001  DF
  94. 411002  00
  95. 411003  07
  96. 411004  55
  97. 411005  4F
  98. 411006  2F
  99. 411007  00
  100. 411008  2F
  101. 411009  01
  102. 41100A
  103.  
  104. Click Mouse to Exit Demo